home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk89 / typetut / rancon.bas < prev    next >
BASIC Source File  |  1995-03-19  |  970b  |  43 lines
  1. 5 PRINT "NOW RUN THE VAROUS PROGRAMS"
  2. 7 STOP
  3. 10 OPEN "I",#1,"LESSONS"
  4. 20 OPEN "R",#2,"LESRAN",80:FIELD #2,80 AS R$
  5. 25 OPEN "O",#3,"LESST"
  6. 30 COUNT=0:START=1:LES=0
  7. 40 IF EOF(1) THEN 100
  8. 50 LINE INPUT #1,A$
  9. 60 COUNT=COUNT+1
  10. 70 IF LEFT$(A$,4)<>"$$$$" THEN 80
  11. 71 REM NEW LESSON
  12. 75 LES=LES+1
  13. 76 PRINT #3,LES,COUNT
  14. 78 PRINT "LESSON ";LES,COUNT
  15. 80 GOSUB 200   'TRIM LINE
  16. 85 B$=B$+">"   'PUT IN TRAILING THINGY
  17. 90 LSET R$=B$
  18. 95 PUT #2,COUNT
  19. 98 GOTO 40
  20. 100 REM ALL LINES IN
  21. 120 RESET:END
  22. 200 REM TRIM LINE
  23. 210 A=LEN(A$)
  24. 220 FOR X=A TO 1 STEP -1
  25. 230 IF MID$(A$,X,1)<>" " THEN 250
  26. 240 NEXT X
  27. 250 B$=LEFT$(A$,X)
  28. 260 RETURN
  29. 300 REM PRINT OUT CONTENTS OF RANDOM FILE
  30. 310 OPEN "R",#2,"LESRAN",80:FIELD #2,80 AS R$
  31. 320 FOR X=1 TO 1000
  32. 330 GET #2,X
  33. 340 LPRINT X,R$
  34. 350 NEXT X
  35. 360 END
  36. 400 REM PRINT OUT CONTENTS OF LESSON START FILE
  37. 410 OPEN "I",#3,"LESST":COUNT=0
  38. 420 IF EOF(3) THEN 460
  39. 430 INPUT #3,LES,START:COUNT=COUNT+1
  40. 440 LPRINT "C=";COUNT,"L=";LES,"S=";START
  41. 450 GOTO 420
  42. 460 END
  43.